home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 January
/
chip-cd_2002_01.zip
/
01
/
Oferta CHIP Special
/
Special.exe
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
< prev
Wrap
Text File
|
2001-11-30
|
20KB
|
721 lines
object MainForm: TMainForm
Left = 202
Top = 102
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'CHIP Special'
ClientHeight = 545
ClientWidth = 792
Color = 343343104
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Scaled = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object NotebookUpdate: TNotebook
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
PageIndex = 2
ParentFont = False
TabOrder = 1
OnClick = AniButton1Click
object TPage
Left = 0
Top = 0
Caption = 'Wstep'
object Image1: TImage
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Picture.Data = {<image000.jpg>}
end
object Label2: TLabel
Left = 128
Top = 32
Width = 420
Height = 256
Caption =
'Witamy,'#13#10#13#10'niniejsza aplikacja to prosty i wygodny spos�b na z�o' +
'�enie zam�wienia'#13#10'na dowolne, dost�pne w sprzeda�y wydania CHIP ' +
'Special.'#13#10'Przechodz�c przez kolejne etapy, zapoznasz si�'#13#10'z zawa' +
'rto�ci� poszczeg�lnych zeszyt�w, dokonasz'#13#10'wyboru interesuj�cych' +
' Ci� wyda� i wy�lesz'#13#10'zam�wienie.'#13#10#13#10'Zapraszamy do skorzystania ' +
'z naszej'#13#10'us�ugi, kt�ra przy�pieszy realizacj�'#13#10'Twoich zam�wie�!' +
#13#10#13#10#13#10'Wydawca'#13#10'Vogel Publishing sp. z o.o.'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
end
object TPage
Left = 0
Top = 0
Caption = 'warunki zamowieni'
object Image2: TImage
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Picture.Data = {<image001.jpg>}
end
object WebBrowser2: TWebBrowser
Left = 100
Top = 0
Width = 691
Height = 490
TabOrder = 0
ControlData = {
4C0000006B470000A53200000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
object TPage
Left = 0
Top = 0
Caption = 'HTML'
object Image3: TImage
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Picture.Data = {<image002.jpg>}
end
object Label3: TLabel
Left = 543
Top = 0
Width = 160
Height = 13
Caption = 'Najnowsze wydania CHIP Special'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 143
Top = 0
Width = 216
Height = 13
Caption = 'Wydania CHIP Special dost�pne w sprzeda�y'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object ListBox1: TListBox
Left = 115
Top = 16
Width = 281
Height = 108
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 0
OnClick = ListBox1Click
end
object AniButton1: TBitBtn
Left = 458
Top = 15
Width = 80
Height = 105
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = AniButton1Click
end
object AniButton2: TBitBtn
Left = 574
Top = 15
Width = 80
Height = 105
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = AniButton2Click
end
object AniButton3: TBitBtn
Left = 690
Top = 15
Width = 80
Height = 105
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = AniButton3Click
end
object WebBrowser1: TWebBrowser
Left = 100
Top = 128
Width = 692
Height = 362
TabOrder = 4
OnDownloadBegin = WebBrowser1DownloadBegin
OnDocumentComplete = WebBrowser1DocumentComplete
ControlData = {
4C000000854700006A2500000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
8000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
object TPage
Left = 0
Top = 0
Caption = 'Specjale'
object Image7: TImage
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Picture.Data = {<image003.jpg>}
end
object Label1: TLabel
Left = 219
Top = 2
Width = 452
Height = 26
Alignment = taCenter
Caption =
'Przy wybranym zeszycie CHIP Special, w polu Liczba egzemplarzy,' +
' wpisz odpowiedni� warto��.'#13#10'Zam�wione zeszyty zostan� wys�ane z' +
'a zaliczeniem pocztowym.'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object AdvStringGrid1: TAdvStringGrid
Left = 99
Top = 33
Width = 693
Height = 457
Color = clWhite
ColCount = 9
DefaultColWidth = 130
DefaultRowHeight = 42
FixedColor = clWhite
FixedCols = 4
RowCount = 2
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
AutoNumAlign = False
AutoSize = False
VAlignment = vtaCenter
EnhTextSize = False
EnhRowColMove = False
SortFixedCols = False
SizeWithForm = False
Multilinecells = False
OnGetAlignment = AdvStringGrid1GetAlignment
SortDirection = sdAscending
SortShow = False
EnableGraphics = False
SortColumn = 0
HintColor = clInfoBk
SelectionColor = clWhite
SelectionTextColor = clBlack
SelectionRectangle = False
HintShowCells = False
OleDropTarget = False
OleDropSource = False
PrintSettings.FooterSize = 0
PrintSettings.HeaderSize = 0
PrintSettings.Time = ppNone
PrintSettings.Date = ppNone
PrintSettings.DateFormat = 'dd/mm/yyyy'
PrintSettings.PageNr = ppNone
PrintSettings.Title = ppNone
PrintSettings.Font.Charset = DEFAULT_CHARSET
PrintSettings.Font.Color = clWindowText
PrintSettings.Font.Height = -13
PrintSettings.Font.Name = 'MS Sans Serif'
PrintSettings.Font.Style = []
PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
PrintSettings.HeaderFont.Color = clWindowText
PrintSettings.HeaderFont.Height = -13
PrintSettings.HeaderFont.Name = 'MS Sans Serif'
PrintSettings.HeaderFont.Style = []
PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
PrintSettings.FooterFont.Color = clWindowText
PrintSettings.FooterFont.Height = -13
PrintSettings.FooterFont.Name = 'MS Sans Serif'
PrintSettings.FooterFont.Style = []
PrintSettings.Borders = pbNoborder
PrintSettings.BorderStyle = psSolid
PrintSettings.Centered = False
PrintSettings.RepeatFixedRows = False
PrintSettings.RepeatFixedCols = False
PrintSettings.LeftSize = 0
PrintSettings.RightSize = 0
PrintSettings.ColumnSpacing = 0
PrintSettings.RowSpacing = 0
PrintSettings.Orientation = poPortrait
PrintSettings.FixedWidth = 0
PrintSettings.FixedHeight = 0
PrintSettings.UseFixedHeight = False
PrintSettings.UseFixedWidth = False
PrintSettings.FitToPage = fpNever
PrintSettings.PageNumSep = '/'
PrintSettings.NoAutoSize = False
Navigation.AllowInsertRow = False
Navigation.AllowDeleteRow = False
Navigation.AdvanceOnEnter = False
Navigation.AdvanceInsert = False
Navigation.AutoGotoWhenSorted = False
Navigation.AutoGotoIncremental = False
Navigation.AdvanceDirection = adLeftRight
Navigation.AllowClipboardShortCuts = False
Navigation.AllowSmartClipboard = False
Navigation.AdvanceAuto = False
Navigation.InsertPosition = pInsertBefore
Navigation.CursorWalkEditor = False
Navigation.ImproveMaskSel = False
Navigation.AlwaysEdit = False
ColumnSize.Save = False
ColumnSize.Stretch = True
CellNode.Color = clSilver
CellNode.NodeType = cnFlat
CellNode.NodeColor = clBlack
SizeWhileTyping.Height = False
SizeWhileTyping.Width = False
MouseActions.AllSelect = False
MouseActions.ColSelect = False
MouseActions.RowSelect = False
MouseActions.DirectEdit = False
MouseActions.DisjunctRowSelect = False
MouseActions.CaretPositioning = False
IntelliPan = ipVertical
URLColor = clBlack
URLShow = False
URLFull = False
URLEdit = False
ScrollType = ssNormal
ScrollColor = clSilver
ScrollWidth = 20
ScrollProportional = False
ScrollHints = shNone
OemConvert = False
FixedFooters = 0
FixedRightCols = 0
FixedColWidth = 130
FixedRowHeight = 42
FixedFont.Charset = DEFAULT_CHARSET
FixedFont.Color = clBlack
FixedFont.Height = -13
FixedFont.Name = 'MS Sans Serif'
FixedFont.Style = [fsBold]
WordWrap = True
ColumnHeaders.Strings = (
'0 ala ma kota a kot ma al�'
'1'
'2'
'3'
'4'
'5')
Lookup = False
LookupHistory = False
Hovering = False
SortPrimColumn = 0
SortSecColumn = 0
ColWidths = (
130
130
130
130
130
130
130
130
130)
RowHeights = (
42
42)
end
end
object TPage
Left = 0
Top = 0
Caption = 'Ankieta1'
object Image4: TImage
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Picture.Data = {<image004.jpg>}
end
object ClearBtnZ: TButton
Left = 170
Top = 515
Width = 64
Height = 24
Caption = 'Wyczy��'
TabOrder = 0
OnClick = ClearBtnZClick
end
inline frmZamawiajacy1: TfrmZamawiajacy
Left = 73
Top = -1
Height = 491
TabOrder = 1
end
end
object TPage
Left = 0
Top = 0
Caption = 'Ankieta2'
object Image5: TImage
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Picture.Data = {<image005.jpg>}
end
object ClearBtnInna: TButton
Left = 170
Top = 515
Width = 64
Height = 24
Caption = 'Wyczy��'
TabOrder = 0
OnClick = ClearBtnInnaClick
end
inline frmInna_osoba1: TfrmInna_osoba
Left = 73
Height = 490
TabOrder = 1
end
end
object TPage
Left = 0
Top = 0
Caption = 'Wyb�r p�atno�ci'
object Image8: TImage
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Picture.Data = {<image006.jpg>}
end
object lblNrKonta: TLabel
Left = 277
Top = 244
Width = 106
Height = 13
Caption = 'Numer konta p�atnika:'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
Visible = False
end
object Label6: TLabel
Left = 123
Top = 158
Width = 440
Height = 13
Caption =
'Wybierz najdogodniejsz� dla Ciebie form� p�atno�ci za zam�wione ' +
'egzemplarze CHIP Special'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object lblDaneZlec: TLabel
Left = 277
Top = 290
Width = 71
Height = 13
Caption = 'Dane p�atnika:'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
Visible = False
end
object cmbboxFormaPlatnosci: TComboBox
Left = 276
Top = 194
Width = 239
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = cmbboxFormaPlatnosciChange
Items.Strings = (
'zaliczenie pocztowe'
'przelew'
'wp�ata got�wkowa')
end
object edtNrKonta: TEdit
Left = 276
Top = 262
Width = 229
Height = 21
TabOrder = 1
Visible = False
end
object memDaneZlec: TMemo
Left = 276
Top = 306
Width = 229
Height = 89
TabOrder = 2
Visible = False
WordWrap = False
end
end
object TPage
Left = 0
Top = 0
Caption = 'Weryfikacja'
object Image6: TImage
Left = 0
Top = 0
Width = 792
Height = 545
Align = alClient
Picture.Data = {<image007.jpg>}
end
object RichEdit1: TRichEdit
Left = 99
Top = 0
Width = 693
Height = 490
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 0
WordWrap = False
end
object PrintBtn: TButton
Left = 190
Top = 513
Width = 64
Height = 24
Caption = 'Drukuj'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = PrintBtnClick
end
object SendMail: TButton
Left = 263
Top = 513
Width = 107
Height = 24
Caption = 'Wy�lij przez Internet'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = SendMailClick
end
object btnPrintPrzelew: TButton
Left = 379
Top = 513
Width = 104
Height = 24
Caption = 'Drukuj przelew'
Font.Charset = EASTEUROPE_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = btnDrukujPrzelewClick
end
end
end
object BtnNext: TButton
Left = 692
Top = 515
Width = 96
Height = 24
Caption = 'Dalej >>'
Default = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = BtnNextClick
end
object BtnClose: TButton
Left = 9
Top = 515
Width = 64
Height = 24
Cancel = True
Caption = 'Zamknij'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BtnCloseClick
end
object BtnBack: TButton
Left = 585
Top = 515
Width = 96
Height = 24
Caption = '<< Wstecz'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BtnBackClick
end
object PageManager: TPageManager
PageOwner = NotebookUpdate
NextBtn = BtnNext
PriorBtn = BtnBack
OnCheckButtons = PageManagerCheckButtons
Left = 87
Top = 512
object Wstep: TPageProxy
PageName = 'Wstep'
end
object PageProxy1: TPageProxy
PageName = 'warunki zamowieni'
end
object HTML: TPageProxy
PageName = 'HTML'
end
object Specjale: TPageProxy
PageName = 'Specjale'
end
object Zamawiajacy: TPageProxy
PageName = 'Ankieta1'
end
object Inna_osoba: TPageProxy
PageName = 'Ankieta2'
end
object SMTP: TPageProxy
PageName = 'Wyb�r p�atno�ci'
end
object Weryfikacja: TPageProxy
PageName = 'Weryfikacja'
end
end
object NMSMTP1: TNMSMTP
Port = 25
TimeOut = 30000
ReportLevel = 0
OnDisconnect = NMSMTP1Disconnect
OnConnect = NMSMTP1Connect
OnInvalidHost = NMSMTP1InvalidHost
OnConnectionFailed = NMSMTP1ConnectionFailed
EncodeType = uuMime
ClearParams = True
SubType = mtPlain
Charset = 'windows-1250'
OnRecipientNotFound = NMSMTP1RecipientNotFound
OnSuccess = NMSMTP1Success
OnFailure = NMSMTP1Failure
OnAttachmentNotFound = NMSMTP1AttachmentNotFound
OnAuthenticationFailed = NMSMTP1AuthenticationFailed
Left = 120
Top = 512
end
object prnInfo: TPrinterInfo
Left = 20
Top = 446
end
end